home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
comms
/
rbcom346.zip
/
CIS.MAC
< prev
next >
Wrap
Text File
|
1995-01-22
|
1KB
|
82 lines
; RBcomm macro file for CompuServe
; by Ralf Brown
;
AutoDL MULTI
WHEN 0 "Please initiate YMODEM receive"
{
PAUSE 5
RECEIVE 'Y'
PAUSE 4
TEXT "\r"
}
; WHEN 0 "Please initiate XMODEM receive"
; {
; PAUSE 5
; RECEIVE 'X'
; PAUSE 4
; TEXT "\r"
; }
WHEN 0 "^E"
DVEXEC 0 "C:/DV/OZ-PIF.DVP"
END
;---------------------------------------------------------------------
; download using CIS B+ protocol by invoking a copy of OZSMALL in another
; DESQview window
@R {
TEXT "down/proto:qb"
WAITFOR 2 "qb"
TEXT "\r"
WAITFOR 10 "Bytes"
CUT 10 AFTER "File "
RTRIM CUTBUFFER ", 0123456789"
WAITFOR 5 "File name for your computer:"
PAUSE 2
PASTE
PAUSE 6
TEXT "\r"
DVEXEC 0 "C:/DV/OZ-PIF.DVP"
PAUSE 6
TEXT "\r"
}
OnLoad {
LOG "%VDSZLOG%" "-- connected to %N at %t on %d\r\n"
AVATAR OFF
RBCOMM_CMDS OFF
}
#defkey Login 199
Login {
WAITFOR 5 "User ID:"
TEXT "nnnnn,nnn\r"
WAITFOR 5 "Password:"
PASSWORD
TEXT "\r"
}
Auto {
STRIP_PARITY ON ; needed if connecting at 8N1
PAUSE 3
TEXT "\r"
WAITFOR 3 "Host Name:"
TEXT "CIS\r"
STRIP_PARITY OFF
CALL Login
}
CleanUp {
IF CONNECTED
{
TEXT "bye\r"
WAITFOR 3 "Host Name:"
TEXT "bye\r"
}
LOG "%VDSZLOG%" "-- hung up %N at %t on %d\r\n"
SELECT_SCREEN 0
}
#include "rbcomm.mac"